function element_error=test_channel_estimation(T)
if(nargin<1)
T=10
end
nt=4;
nr=4;

power=10;	%total power being transmitted
noise=1;	%noise at each receiver
rho=power/noise;
v=noise*randn(nr,1) + j*noise*randn(nr,1);

h=correlated_channel(nr,nt,0,0);

[h_hat,singular]=channel_estimation(h,noise,rho,nt,nr,T,v);
element_error=mean(mean(abs(h_hat-h)));
cond(h_hat)
singular